home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / DiskMaster / Rexx / DMCopyCmt.rexx < prev    next >
OS/2 REXX Batch file  |  2002-10-27  |  906b  |  50 lines
  1. /* $VER: DMCopyCmt.rexx 1.0 (29.9.98) by J. Tierney
  2.  
  3.   DiskMaster II Copy Comment  v1.0
  4.   9/29/98  J. Tierney
  5.  
  6.   Function:  All selected entries in the Dest window recieve the same comment
  7.             as the 1st selected entry in the Source window.
  8.  
  9.   Usage:  DMCopyCmt.rexx
  10.  
  11.  
  12.   Requires DiskMaster v2.4b16 (9/26/98) or above.
  13.  
  14. */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. DIRLIST var slist SEL COMMENT
  19.  
  20. 'WINDOW DEST'
  21. DIRLIST VAR dlist SEL
  22. 'STATUS P'
  23. path = result
  24. IF RIGHT(path, 1) ~= ':' THEN path = path || '/'
  25.  
  26.  
  27. IF (slist.name.0 > 0) & (dlist.name.0 > 0) THEN DO
  28.   cmt = slist.comment.1
  29.  
  30.   IF cmt = 'SLIST.COMMENT.1' THEN DO
  31.     DO i = 1 TO dlist.name.0
  32.       fn = path || dlist.name.i
  33.       ADDRESS COMMAND 'C:FileNote' fn 'QUIET'
  34.     END
  35.     'NEWDIR' path
  36.   END
  37.  
  38.   ELSE DO
  39.     cmt = '"' || cmt || '"'
  40.     DO i = 1 TO dlist.name.0
  41.       fn = path || dlist.name.i
  42.       COMMENT fn cmt
  43.     END
  44.   END
  45. END
  46.  
  47. 'WINDOW DEST'
  48. EXIT 0
  49.  
  50.